;cancel the assign in case of installation restart
(makeassign "TSsrc" (safe))
(makeassign "TSdest" (safe))
; get the dest dir for TypeSmith (create it if it does not exist)
(set ts_dest
(tackon
(askdir
(prompt "Where should TypeSmith be installed? (A drawer named `TypeSmith' will be created there.) If you're updating and want to keep 1.0, rename its drawer now.")
(help @askdir-help)
(default @default-dest)
)
"TypeSmith"
)
)
(makeassign "TSdest"
(pathonly ts_dest)
(safe)
)
(if (exists "TSdest:TypeSmith")
(+ 1 1)
(makedir
"TSdest:TypeSmith"
(infos)
(safe)
)
)
;We now have a valid destination, so tell Installer where TS will end up
;so the exit page will be correct.
(set @default-dest ts_dest)
;lock on to volume 'TypeSmith'
(askdisk
(prompt "Please put the TypeSmith disk is in any drive.")
(help "\n\n\n\nThis is required to install TypeSmith 2.0.")
(dest "TypeSmith")
(newname "TSsrc")
)
(complete 10)
;Copy the LHEX program to ram:
(copyfiles
(source "TSsrc:lhex")
(dest "ram:")
)
(copyfiles
(source "TSsrc:ReadMe.Now")
(dest "TSdest:TypeSmith")
)
;copy program files from source to dest
(if
(askbool
(prompt "\n\n\n\n\nDo you want to copy the TypeSmith program?")
(help "\n\nClicking 'Copy' will copy the TypeSmith program and TSFiles drawer to your system. Clicking 'Do Not Copy' will skip to the next step. If you have already installed the TypeSmith 2.0 program and TSFiles drawer and just want to install other files, click 'Do Not Copy'.")
(choices "Copy" "Do Not Copy")
(default 1)
)
(
(copyfiles
(source "TSsrc:TypeSmith")
(dest "TSdest:TypeSmith")
(infos)
)
(complete 40)
(copyfiles
(source "TSsrc:TSFiles")
(dest "TSdest:TypeSmith/TSFiles")
(all)
)
)
)
(complete 45)
;copy ARexx files from source to dest
(if
(askbool
(prompt "\n\n\n\n\nDo you wish to copy the TypeSmith ARexx macros?")
(help "\n\nThese files are not required to use TypeSmith. ARexx is a macro scripting language which simplifies repetitive tasks. Sample ARexx macros are included with TypeSmith and will be installed now if you click 'Copy'. To skip this step, click 'Do Not Copy'.")
(choices "Copy" "Do Not Copy")
(default 1)
)
(
(working)
(if (exists "TSdest:TypeSmith/Rexx")
(+ 1 1)
(makedir
"TSdest:TypeSmith/Rexx"
(infos)
(safe)
)
)
(run "ram:lhex >NIL: <NIL: -qfw=TSdest:TypeSmith x TSsrc:rexx.lha")
)
)
(complete 50)
;copy help files from source to dest
(if
(askbool
(prompt "\n\n\n\n\nDo you wish to copy the TypeSmith Help files?")
(help "These files are not required to use TypeSmith, but provide online documentation to make TypeSmith easier to learn. The help system uses the AmigaGuide program from Commodore.\n\nThis portion of the installation requires that RexxMast be run or be in Sys:System in order to work.")
(choices "Copy" "Do Not Copy")
(default 1)
)
(
(working)
(if (exists "TSdest:TypeSmith/Help")
(+ 1 1)
(makedir
"TSdest:TypeSmith/Help"
(infos)
(safe)
)
)
(run "ram:lhex >NIL: <NIL: -qfw=TSdest:TypeSmith x TSsrc:help.lha")
(prompt "TypeSmith requires the amigaguide.library for its Help system.")
(source "TSsrc:misc/amigaguide.library")
(dest "LIBS:")
(confirm)
(help @copylib-help)
)
(copylib
(prompt "TypeSmith requires the AmigaGuide program for its Help system.")
(source "TSsrc:misc/amigaguide")
(dest "SYS:Utilities")
(confirm)
(infos)
(help @copylib-help)
)
(copylib
(prompt "AmigaGuide requires its help file for proper operation.")
(source "TSsrc:misc/help.guide")
(dest "S:")
(confirm)
(help @copylib-help)
)
(if
(askbool
(prompt "\n\nFor TypeSmith's help system to work properly with AmigaGuide, the help file path must be added to AmigaGuide. If you skip this step, you will not be able to use the help system. Click Help for details.")
(help "This will create the following file: EnvArc:AmigaGuide/Path. If you already have a file with this name, skip this step and add the following line to it with a text editor:\n\nTypeSmith:Help/English\n\nReboot your computer after installation is complete before using TypeSmith.")
(choices "Continue" "Skip This Step")
(default 1)
)
(
(makedir "Envarc:AmigaGuide")
(copyfiles
(source "TSsrc:misc/path")
(dest "Envarc:AmigaGuide")
)
)
)
)
)
)
)
(complete 65)
;copy font files from source to dest
(if
(askbool
(prompt "\n\n\n\n\nDo you wish to copy the demo fonts and composition tables?")
(help "\n\n\n\nThese files are not required, but are recommended for learning TypeSmith.")
(choices "Copy" "Do Not Copy")
(default 1)
)
(
(working)
(if (exists "TSdest:TypeSmith/TSFonts")
(+ 1 1)
(makedir
"TSdest:TypeSmith/TSFonts"
(infos)
(safe)
)
)
(run "ram:lhex >NIL: <NIL: -qfw=TSdest:TypeSmith x TSsrc:demofont.lha")
)
)
(complete 70)
;copy art files from source to dest
(if
(askbool
(prompt "\n\n\n\n\nDo you wish to copy the demo IFF ILBM and IFF DR2D files?")
(help "\n\n\n\nThese files are not required, but are recommended for learning TypeSmith.")
(choices "Copy" "Do Not Copy")
(default 1)
)
(
(working)
(if (exists "TSdest:TypeSmith/TSArt")
(+ 1 1)
(makedir
"TSdest:TypeSmith/TSArt"
(infos)
(safe)
)
)
(run "ram:lhex >NIL: <NIL: -qfw=TSdest:TypeSmith x TSsrc:art.lha")
)
)
(complete 75)
;copy Font Downloader from source to dest
(if
(askbool
(prompt "\n\n\n\n\nDo you wish to copy the Font Downloader?")
(help "\n\n\nThe Font Downloader is a separate program used to download PostScript fonts to a PostScript printer before printing from an application.")
(choices "Copy" "Do Not Copy")
(default 1)
)
(
(working)
(run "ram:lhex >NIL: <NIL: -qfw=TSdest:TypeSmith x TSsrc:download.lha")
)
)
(complete 80)
;copy the iff.library
(copylib
(prompt "TypeSmith requires the iff.library for handling IFF ILBM files.")
